home *** CD-ROM | disk | FTP | other *** search
- #define LIBQBUILD_CORE
- #include "../include/libqbuild.h"
-
- int c_activewindings, c_peakwindings;
-
- //===========================================================================
-
- void WindingBounds(register struct winding *w, vec3_t mins, vec3_t maxs)
- {
- vec_t v;
- int i, j;
-
- mins[0] = mins[1] = mins[2] = 99999;
- maxs[0] = maxs[1] = maxs[2] = -99999;
-
- for (i = 0; i < w->numpoints; i++) {
- for (j = 0; j < 3; j++) {
- v = w->points[i][j];
- if (v < mins[j])
- mins[j] = v;
- if (v > maxs[j])
- maxs[j] = v;
- }
- }
- }
- void WindingCenter(register struct winding *w, vec3_t center)
- {
- int i;
-
- VectorClear(center);
- for (i = 0; i < w->numpoints; i++)
- VectorAdd(w->points[i], center, center);
-
- VectorScale(center, 1.0 / w->numpoints, center);
- }
-
- vec_t WindingArea(register struct winding *w)
- {
- int i;
- vec3_t d1, d2, cross;
- vec_t total = 0;
-
- for (i = 2; i < w->numpoints; i++) {
- VectorSubtract(w->points[i - 1], w->points[0], d1);
- VectorSubtract(w->points[i], w->points[0], d2);
- CrossProduct(d1, d2, cross);
- total += 0.5 * VectorLength(cross);
- }
- return total;
- }
-
- /*
- * =================
- * BaseWindingForPlane
- * =================
- */
- struct winding *BaseWindingForPlane(register struct plane *p)
- {
- int i, x;
- vec_t max, v;
- vec3_t org, vright, vup;
- struct winding *w;
-
- // find the major axis
-
- max = -BOGUS_RANGE;
- x = -1;
- for (i = 0; i < 3; i++) {
- v = fabs(p->normal[i]);
- if (v > max) {
- x = i;
- max = v;
- }
- }
- if (x == -1)
- Error("BaseWindingForPlane: no axis found");
-
- VectorClear(vup);
- switch (x) {
- case 0:
- case 1:
- vup[2] = 1;
- break;
- case 2:
- vup[0] = 1;
- break;
- }
-
- v = DotProduct(vup, p->normal);
- VectorMA(vup, -v, p->normal, vup);
- VectorNormalize(vup);
-
- VectorScale(p->normal, p->dist, org);
-
- CrossProduct(vup, p->normal, vright);
-
- VectorScale(vup, 8192, vup);
- VectorScale(vright, 8192, vright);
-
- // project a really big axis aligned box onto the plane
- w = NewWinding(4);
-
- VectorSubtract(org, vright, w->points[0]);
- VectorAdd(w->points[0], vup, w->points[0]);
-
- VectorAdd(org, vright, w->points[1]);
- VectorAdd(w->points[1], vup, w->points[1]);
-
- VectorAdd(org, vright, w->points[2]);
- VectorSubtract(w->points[2], vup, w->points[2]);
-
- VectorSubtract(org, vright, w->points[3]);
- VectorSubtract(w->points[3], vup, w->points[3]);
-
- w->numpoints = 4;
-
- return w;
- }
-
- /*
- * =============
- * WindingFromFace
- * =============
- */
- struct winding *WindingFromFace(__memBase, register struct dface_t *f)
- {
- int se;
- struct dvertex_t *dv;
- int v;
- struct winding *w;
- int i, j, k;
- vec3_t v1, v2;
- int nump;
- vec3_t p[MAX_POINTS_ON_WINDING];
-
- w = NewWinding(f->numedges);
- w->numpoints = f->numedges;
-
- for (i = 0; i < f->numedges; i++) {
- se = bspMem->dsurfedges[f->firstedge + i];
- if (se < 0)
- v = bspMem->dedges[-se].v[1];
- else
- v = bspMem->dedges[se].v[0];
-
- dv = &bspMem->dvertexes[v];
- VectorCopy(dv->point, w->points[i]);
- }
-
- nump = 0;
- for (i = 0; i < w->numpoints; i++) {
- j = (i + 1) % w->numpoints;
- k = (i + w->numpoints - 1) % w->numpoints;
- VectorSubtract(w->points[j], w->points[i], v1);
- VectorSubtract(w->points[i], w->points[k], v2);
- VectorNormalize(v1);
- VectorNormalize(v2);
- if (DotProduct(v1, v2) < 0.999) {
- VectorCopy(w->points[i], p[nump]);
- nump++;
- }
- }
-
- if (nump != w->numpoints) {
- w->numpoints = nump;
- memcpy(w->points, p, nump * sizeof(vec3_t));
- }
- return w;
- }
-
- /*
- * ==================
- * CopyWinding
- * ==================
- */
- struct winding *CopyWinding(register struct winding *w)
- {
- int size;
- struct winding *c;
-
- size = (int)((struct winding *)0)->points[w->numpoints];
- if (!(c = (struct winding *)tmalloc(size)))
- Error("CopyWinding: failed to allocate winding!\n");
- memcpy(c, w, size);
- c->original = FALSE;
- return c;
- }
-
- /*
- * ==================
- * CheckWinding
- *
- * Check for possible errors
- * ==================
- */
- void CheckWinding(register struct winding *w)
- {
- }
-
- void CheckWindingInNode(register struct winding *w, register struct node *node)
- {
- int i, j;
-
- for (i = 0; i < w->numpoints; i++) {
- for (j = 0; j < 3; j++)
- if (w->points[i][j] < node->mins[j] - 1
- || w->points[i][j] > node->maxs[j] + 1) {
- eprintf("CheckWindingInNode: outside\n");
- return;
- }
- }
- }
-
- void CheckWindingArea(register struct winding *w)
- {
- int i;
- float total, add;
- vec3_t v1, v2, cross;
-
- total = 0;
- for (i = 1; i < w->numpoints; i++) {
- VectorSubtract(w->points[i], w->points[0], v1);
- VectorSubtract(w->points[i + 1], w->points[0], v2);
- CrossProduct(v1, v2, cross);
- add = VectorLength(cross);
- total += add * 0.5;
- }
- if (total < 16)
- eprintf("winding area %f\n", total);
- }
-
- void PlaneFromWinding(register struct winding *w, register struct plane *plane)
- {
- vec3_t v1, v2;
-
- // calc plane
- VectorSubtract(w->points[2], w->points[1], v1);
- VectorSubtract(w->points[0], w->points[1], v2);
- CrossProduct(v2, v1, plane->normal);
- VectorNormalize(plane->normal);
- plane->dist = DotProduct(w->points[0], plane->normal);
- }
-
- /*
- * ==================
- * ClipWinding
- *
- * Clips the winding to the plane, returning the new winding on the positive side
- * Frees the input winding.
- * If keepon is TRUE, an exactly on-plane winding will be saved, otherwise
- * it will be clipped away.
- * ==================
- */
- struct winding *ClipWinding(register struct winding *in, register struct plane *split, register bool keepon)
- {
- vec_t dists[MAX_POINTS_ON_WINDING];
- int sides[MAX_POINTS_ON_WINDING];
- int counts[3];
- vec_t dot;
- int i, j;
- vec_t *p1, *p2;
- vec3_t mid;
- struct winding *neww;
- int maxpts;
-
- counts[0] = counts[1] = counts[2] = 0;
-
- // determine sides for each point
- for (i = 0; i < in->numpoints; i++) {
- dot = DotProduct(in->points[i], split->normal);
- dot -= split->dist;
- dists[i] = dot;
- if (dot > ON_EPSILON)
- sides[i] = SIDE_FRONT;
- else if (dot < -ON_EPSILON)
- sides[i] = SIDE_BACK;
- else {
- sides[i] = SIDE_ON;
- }
- counts[sides[i]]++;
- }
- sides[i] = sides[0];
- dists[i] = dists[0];
-
- /*
- * printf("counts[0]: %d\n", counts[0]);
- * printf("counts[1]: %d\n", counts[1]);
- */
-
- if (keepon && !counts[0] && !counts[1])
- return in;
-
- if (!counts[0]) {
- FreeWinding(in);
- return NULL;
- }
- if (!counts[1])
- return in;
-
- maxpts = in->numpoints + 4; // can't use counts[0]+2 because
- // of fp grouping errors
-
- neww = NewWinding(maxpts);
-
- for (i = 0; i < in->numpoints; i++) {
- p1 = in->points[i];
-
- if (sides[i] == SIDE_ON) {
- VectorCopy(p1, neww->points[neww->numpoints]);
- neww->numpoints++;
- continue;
- }
-
- if (sides[i] == SIDE_FRONT) {
- VectorCopy(p1, neww->points[neww->numpoints]);
- neww->numpoints++;
- }
-
- if (sides[i + 1] == SIDE_ON || sides[i + 1] == sides[i])
- continue;
-
- // generate a split point
- p2 = in->points[(i + 1) % in->numpoints];
-
- dot = dists[i] / (dists[i] - dists[i + 1]);
- for (j = 0; j < 3; j++) { // avoid round off error when possible
-
- if (split->normal[j] == 1)
- mid[j] = split->dist;
- else if (split->normal[j] == -1)
- mid[j] = -split->dist;
- else
- mid[j] = p1[j] + dot * (p2[j] - p1[j]);
- }
-
- VectorCopy(mid, neww->points[neww->numpoints]);
- neww->numpoints++;
- }
-
- if (neww->numpoints > maxpts)
- Error("ClipWinding: points exceeded estimate");
-
- // free the original winding
- FreeWinding(in);
-
- return neww;
- }
-
- void ClipWindingEpsilon(struct winding *in, vec3_t normal, vec_t dist,
- vec_t epsilon, struct winding **front, struct winding **back)
- {
- vec_t dists[MAX_POINTS_ON_WINDING + 4];
- int sides[MAX_POINTS_ON_WINDING + 4];
- int counts[3];
- vec_t dot;
- int i, j;
- vec_t *p1, *p2;
- vec3_t mid;
- struct winding *f, *b;
- int maxpts;
-
- counts[0] = counts[1] = counts[2] = 0;
-
- // determine sides for each point
- for (i = 0; i < in->numpoints; i++) {
- dot = DotProduct(in->points[i], normal);
- dot -= dist;
- dists[i] = dot;
- if (dot > epsilon)
- sides[i] = SIDE_FRONT;
- else if (dot < -epsilon)
- sides[i] = SIDE_BACK;
- else {
- sides[i] = SIDE_ON;
- }
- counts[sides[i]]++;
- }
- sides[i] = sides[0];
- dists[i] = dists[0];
-
- *front = *back = NULL;
-
- if (!counts[0]) {
- *back = CopyWinding(in);
- return;
- }
- if (!counts[1]) {
- *front = CopyWinding(in);
- return;
- }
-
- maxpts = in->numpoints + 4; // cant use counts[0]+2 because
- // of fp grouping errors
-
- *front = f = NewWinding(maxpts);
- *back = b = NewWinding(maxpts);
-
- for (i = 0; i < in->numpoints; i++) {
- p1 = in->points[i];
-
- if (sides[i] == SIDE_ON) {
- VectorCopy(p1, f->points[f->numpoints]);
- f->numpoints++;
- VectorCopy(p1, b->points[b->numpoints]);
- b->numpoints++;
- continue;
- }
-
- if (sides[i] == SIDE_FRONT) {
- VectorCopy(p1, f->points[f->numpoints]);
- f->numpoints++;
- }
- if (sides[i] == SIDE_BACK) {
- VectorCopy(p1, b->points[b->numpoints]);
- b->numpoints++;
- }
-
- if (sides[i + 1] == SIDE_ON || sides[i + 1] == sides[i])
- continue;
-
- // generate a split point
- p2 = in->points[(i + 1) % in->numpoints];
-
- dot = dists[i] / (dists[i] - dists[i + 1]);
- for (j = 0; j < 3; j++) { // avoid round off error when possible
-
- if (normal[j] == 1)
- mid[j] = dist;
- else if (normal[j] == -1)
- mid[j] = -dist;
- else
- mid[j] = p1[j] + dot * (p2[j] - p1[j]);
- }
-
- VectorCopy(mid, f->points[f->numpoints]);
- f->numpoints++;
- VectorCopy(mid, b->points[b->numpoints]);
- b->numpoints++;
- }
-
- if (f->numpoints > maxpts || b->numpoints > maxpts)
- Error("ClipWinding: points exceeded estimate");
- if (f->numpoints > MAX_POINTS_ON_WINDING || b->numpoints > MAX_POINTS_ON_WINDING)
- Error("ClipWinding: MAX_POINTS_ON_WINDING");
- }
- /*
- * ==================
- * DivideWinding
- *
- * Divides a winding by a plane, producing one or two windings. The
- * original winding is not damaged or freed. If only on one side, the
- * returned winding will be the input winding. If on both sides, two
- * new windings will be created.
- * ==================
- */
- void DivideWinding(struct winding *in, struct plane *split, struct winding **front, struct winding **back)
- {
- vec_t dists[MAX_POINTS_ON_WINDING];
- int sides[MAX_POINTS_ON_WINDING];
- int counts[3];
- vec_t dot;
- int i, j;
- vec_t *p1, *p2;
- vec3_t mid;
- struct winding *f, *b;
- int maxpts;
-
- counts[0] = counts[1] = counts[2] = 0;
-
- // determine sides for each point
- for (i = 0; i < in->numpoints; i++) {
- dot = DotProduct(in->points[i], split->normal);
- dot -= split->dist;
- dists[i] = dot;
- if (dot > ON_EPSILON)
- sides[i] = SIDE_FRONT;
- else if (dot < -ON_EPSILON)
- sides[i] = SIDE_BACK;
- else {
- sides[i] = SIDE_ON;
- }
- counts[sides[i]]++;
- }
- sides[i] = sides[0];
- dists[i] = dists[0];
-
- *front = *back = NULL;
-
- if (!counts[0]) {
- *back = in;
- return;
- }
- if (!counts[1]) {
- *front = in;
- return;
- }
-
- maxpts = in->numpoints + 4; // can't use counts[0]+2 because
- // of fp grouping errors
-
- *front = f = NewWinding(maxpts);
- *back = b = NewWinding(maxpts);
-
- for (i = 0; i < in->numpoints; i++) {
- p1 = in->points[i];
-
- if (sides[i] == SIDE_ON) {
- VectorCopy(p1, f->points[f->numpoints]);
- f->numpoints++;
- VectorCopy(p1, b->points[b->numpoints]);
- b->numpoints++;
- continue;
- }
-
- if (sides[i] == SIDE_FRONT) {
- VectorCopy(p1, f->points[f->numpoints]);
- f->numpoints++;
- }
- if (sides[i] == SIDE_BACK) {
- VectorCopy(p1, b->points[b->numpoints]);
- b->numpoints++;
- }
-
- if (sides[i + 1] == SIDE_ON || sides[i + 1] == sides[i])
- continue;
-
- // generate a split point
- p2 = in->points[(i + 1) % in->numpoints];
-
- dot = dists[i] / (dists[i] - dists[i + 1]);
- for (j = 0; j < 3; j++) { // avoid round off error when possible
-
- if (split->normal[j] == 1)
- mid[j] = split->dist;
- else if (split->normal[j] == -1)
- mid[j] = -split->dist;
- else
- mid[j] = p1[j] + dot * (p2[j] - p1[j]);
- }
-
- VectorCopy(mid, f->points[f->numpoints]);
- f->numpoints++;
- VectorCopy(mid, b->points[b->numpoints]);
- b->numpoints++;
- }
-
- if (f->numpoints > maxpts || b->numpoints > maxpts)
- Error("ClipWinding: points exceeded estimate");
- }
-
- /*
- * ==================
- * NewWinding
- * ==================
- */
- struct winding *NewWinding(register int points)
- {
- struct winding *w;
- int size;
-
- if (points > MAX_POINTS_ON_WINDING)
- Error("NewWinding: %i points", points);
-
- c_activewindings++;
- if (c_activewindings > c_peakwindings)
- c_peakwindings = c_activewindings;
-
- size = (int)((struct winding *)0)->points[points];
- if (!(w = (struct winding *)tmalloc(size)))
- Error("NewWinding: failed to allocate winding!\n");
- memset(w, 0, size);
-
- return w;
- }
-
- void FreeWinding(register struct winding *w)
- {
- c_activewindings--;
- if (w->original == FALSE)
- tfree(w);
- }
-